home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
dsystem
/
won.bas
< prev
Wrap
BASIC Source File
|
1993-11-30
|
10KB
|
227 lines
10000 '
10010 ' 勝利処理
10020 '
10030 '
10040 ' WON.BAS
10050 '
10060 PALETTE 1,[255,0,0],1
10070 PALETTE 2,[80,0,0],1
10080 ''
10090 '
10100 *コマンド選択処理
10110 '
10120 COMMAND_NO=1
10130 LINE (COMMAND_WX,COMMAND_WY)-(COMMAND_WX+106,COMMAND_WY+52),PSET,%WINC,BF,%WAKUNAI_C
10140 SYMBOL (COMMAND_WX+26,COMMAND_WY+10),"死体を調べる",FBAI,FBAI
10150 SYMBOL (COMMAND_WX+26,COMMAND_WY+30),"撤退 ",FBAI,FBAI
10160 '
10170 *コマンド選択カーソル表示
10180 '
10190 IF COMMAND_NO=<0 THEN COMMAND_NO=2
10200 IF COMMAND_NO=>3 THEN COMMAND_NO=1
10210 IF COMMAND_NO=1 THEN COMMAND_CY=20
10220 IF COMMAND_NO=2 THEN COMMAND_CY=40
10230 SYMBOL (COMMAND_WX+6,COMMAND_WY+COMMAND_CY),"▽",FBAI,FBAI,%KASORU_C,1
10240 WAIT WA:P=PAD(1):PT=PTRIG(1)
10250 IF P=0 AND PT=0 THEN *コマンド選択カーソル表示
10260 IF P<>1 AND P<>5 AND PT<>1 THEN *コマンド選択カーソル表示
10270 IF PT=1 THEN
10280 IF COMMAND_NO=1 THEN *敵キャラ選択処理
10290 IF COMMAND_NO=2 THEN *フロアセレクタ
10300 ENDIF
10310 IF P=1 THEN COMMAND_NO=COMMAND_NO-1
10320 IF P=5 THEN COMMAND_NO=COMMAND_NO+1
10330 SYMBOL (COMMAND_WX+6,COMMAND_WY+COMMAND_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
10340 GOTO *コマンド選択カーソル表示
10350 ''
10360 '
10370 *敵キャラ選択処理
10380 '
10390 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
10400 SYMBOL (TWINX+6,TWINY+10),"死体の選択",FBAI,FBAI
10410 LINE (WONENEMY_WX,WONENEMY_WY)-(WONENEMY_WX+288,WONENEMY_WY+132),PSET,%WINC,BF,%WAKUNAI_C
10420 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+10) ,NA$(7) ,FBAI,FBAI
10430 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+30) ,NA$(8) ,FBAI,FBAI
10440 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+50) ,NA$(9) ,FBAI,FBAI
10450 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+70) ,NA$(10),FBAI,FBAI
10460 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+90) ,NA$(11),FBAI,FBAI
10470 SYMBOL (WONENEMY_WX+26,WONENEMY_WY+110),NA$(12),FBAI,FBAI
10480 '
10490 *敵キャラ選択カーソル表示
10500 '
10510 IF WONENEMY_NO=<6 THEN WONENEMY_NO=12
10520 IF WONENEMY_NO=>13 THEN WONENEMY_NO=7
10530 IF WONENEMY_NO=7 THEN WONENEMY_CY=20
10540 IF WONENEMY_NO=8 THEN WONENEMY_CY=40
10550 IF WONENEMY_NO=9 THEN WONENEMY_CY=60
10560 IF WONENEMY_NO=10 THEN WONENEMY_CY=80
10570 IF WONENEMY_NO=11 THEN WONENEMY_CY=100
10580 IF WONENEMY_NO=12 THEN WONENEMY_CY=120
10590 SYMBOL (WONENEMY_WX+6,WONENEMY_WY+WONENEMY_CY),"▽",FBAI,FBAI,%KASORU_C,1
10600 WAIT WA:P=PAD(1):PT=PTRIG(1)
10610 IF P=0 AND PT=0 THEN *敵キャラ選択カーソル表示
10620 IF PT=1 THEN
10630 IF NA$(WONENEMY_NO)="" THEN *敵キャラ選択カーソル表示
10640 GOTO *アイテム選択処理
10650 ENDIF
10660 IF PT=2 THEN *コマンド選択処理
10670 IF P=1 THEN WONENEMY_NO=WONENEMY_NO-1
10680 IF P=5 THEN WONENEMY_NO=WONENEMY_NO+1
10690 SYMBOL (WONENEMY_WX+6,WONENEMY_WY+WONENEMY_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
10700 GOTO *敵キャラ選択カーソル表示
10710 ''
10720 '
10730 *アイテム選択処理
10740 '
10750 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
10760 SYMBOL (TWINX+6,TWINY+10),"アイテムの選択",FBAI,FBAI
10770 LINE (WONITEM_WX,WONITEM_WY)-(WONITEM_WX+288,WONITEM_WY+172),PSET,%WINC,BF,%WAKUNAI_C
10780 SYMBOL (WONITEM_WX+26,WONITEM_WY+10) ,INA$(IID(WONENEMY_NO,1)),FBAI,FBAI
10790 SYMBOL (WONITEM_WX+26,WONITEM_WY+30) ,INA$(IID(WONENEMY_NO,2)),FBAI,FBAI
10800 SYMBOL (WONITEM_WX+26,WONITEM_WY+50) ,INA$(IID(WONENEMY_NO,3)),FBAI,FBAI
10810 SYMBOL (WONITEM_WX+26,WONITEM_WY+70) ,INA$(IID(WONENEMY_NO,4)),FBAI,FBAI
10820 SYMBOL (WONITEM_WX+26,WONITEM_WY+90) ,INA$(IID(WONENEMY_NO,5)),FBAI,FBAI
10830 SYMBOL (WONITEM_WX+26,WONITEM_WY+110),INA$(IID(WONENEMY_NO,6)),FBAI,FBAI
10840 SYMBOL (WONITEM_WX+26,WONITEM_WY+130),INA$(IID(WONENEMY_NO,7)),FBAI,FBAI
10850 SYMBOL (WONITEM_WX+26,WONITEM_WY+150),INA$(IID(WONENEMY_NO,8)),FBAI,FBAI
10860 '
10870 *アイテム選択カーソル表示
10880 '
10890 IF WONITEM_INO=<0 THEN WONITEM_INO=8
10900 IF WONITEM_INO=>9 THEN WONITEM_INO=1
10910 IF WONITEM_INO=1 THEN WONITEM_CY=20
10920 IF WONITEM_INO=2 THEN WONITEM_CY=40
10930 IF WONITEM_INO=3 THEN WONITEM_CY=60
10940 IF WONITEM_INO=4 THEN WONITEM_CY=80
10950 IF WONITEM_INO=5 THEN WONITEM_CY=100
10960 IF WONITEM_INO=6 THEN WONITEM_CY=120
10970 IF WONITEM_INO=7 THEN WONITEM_CY=140
10980 IF WONITEM_INO=8 THEN WONITEM_CY=160
10990 SYMBOL (WONITEM_WX+6,WONITEM_WY+WONITEM_CY),"▽",FBAI,FBAI,%KASORU_C,1
11000 WAIT WA:P=PAD(1):PT=PTRIG(1)
11010 IF P=0 AND PT=0 THEN *アイテム選択カーソル表示
11020 IF PT=1 THEN *アイテム多過ぎねーか処理
11030 IF PT=2 THEN *敵キャラ選択処理
11040 SYMBOL (WONITEM_WX+6,WONITEM_WY+WONITEM_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
11050 IF P=1 THEN WONITEM_INO=WONITEM_INO-1
11060 IF P=5 THEN WONITEM_INO=WONITEM_INO+1
11070 GOTO *アイテム選択カーソル表示
11080 ''
11090 '
11100 *アイテム多過ぎねーか処理
11110 '
11120 DUMMYV=0
11130 IF IKIN(IID(1,12))=0 THEN DUMMYV=12
11140 IF IKIN(IID(1,11))=0 THEN DUMMYV=11
11150 IF IKIN(IID(1,10))=0 THEN DUMMYV=10
11160 IF IKIN(IID(1,9)) =0 THEN DUMMYV= 9
11170 IF IKIN(IID(1,8)) =0 THEN DUMMYV= 8
11180 IF IKIN(IID(1,7)) =0 THEN DUMMYV= 7
11190 IF IKIN(IID(1,6)) =0 THEN DUMMYV= 6
11200 IF IKIN(IID(1,5)) =0 THEN DUMMYV= 5
11210 IF IKIN(IID(1,4)) =0 THEN DUMMYV= 4
11220 IF IKIN(IID(1,3)) =0 THEN DUMMYV= 3
11230 IF IKIN(IID(1,2)) =0 THEN DUMMYV= 2
11240 IF IKIN(IID(1,1)) =0 THEN DUMMYV= 1
11250 IF DUMMYV=0 THEN
11260 DUMMYV=1
11270 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
11280 SYMBOL (TWINX+6,TWINY+10),"これ以上は管理できません",FBAI,FBAI
11290 SYMBOL (TWINX+6,TWINY+30),"何か捨てますか",FBAI,FBAI
11300 YES$="捨てる"
11310 NO$ ="このまま"
11320 GOSUB *二択処理
11330 IF NITAKU=1 THEN *捨てるアイテム選択処理
11340 IF NITAKU=2 THEN *コマンド選択処理
11350 '
11360 *捨てるアイテム選択処理
11370 '
11380 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
11390 SYMBOL (TWINX+6,TWINY+10),"捨てるアイテムの選択",FBAI,FBAI
11400 LINE (SUTERUITEM_WX,SUTERUITEM_WY)-(SUTERUITEM_WX+288,SUTERUITEM_WY+252),PSET,%WINC,BF,%WAKUNAI_C
11410 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+10) ,INA$(IID(1,1)) ,FBAI,FBAI
11420 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+30) ,INA$(IID(1,2)) ,FBAI,FBAI
11430 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+50) ,INA$(IID(1,3)) ,FBAI,FBAI
11440 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+70) ,INA$(IID(1,4)) ,FBAI,FBAI
11450 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+90) ,INA$(IID(1,5)) ,FBAI,FBAI
11460 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+110),INA$(IID(1,6)) ,FBAI,FBAI
11470 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+130),INA$(IID(1,7)) ,FBAI,FBAI
11480 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+150),INA$(IID(1,8)) ,FBAI,FBAI
11490 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+170),INA$(IID(1,9)) ,FBAI,FBAI
11500 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+190),INA$(IID(1,10)),FBAI,FBAI
11510 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+210),INA$(IID(1,11)),FBAI,FBAI
11520 SYMBOL (SUTERUITEM_WX+26,SUTERUITEM_WY+230),INA$(IID(1,12)),FBAI,FBAI
11530 '
11540 *捨てるアイテム選択カーソル表示
11550 '
11560 IF DUMMYV=<0 THEN DUMMYV=12
11570 IF DUMMYV=>13 THEN DUMMYV=1
11580 IF DUMMYV=1 THEN SUTERUITEM_CY=20
11590 IF DUMMYV=2 THEN SUTERUITEM_CY=40
11600 IF DUMMYV=3 THEN SUTERUITEM_CY=60
11610 IF DUMMYV=4 THEN SUTERUITEM_CY=80
11620 IF DUMMYV=5 THEN SUTERUITEM_CY=100
11630 IF DUMMYV=6 THEN SUTERUITEM_CY=120
11640 IF DUMMYV=7 THEN SUTERUITEM_CY=140
11650 IF DUMMYV=8 THEN SUTERUITEM_CY=160
11660 IF DUMMYV=9 THEN SUTERUITEM_CY=180
11670 IF DUMMYV=10 THEN SUTERUITEM_CY=200
11680 IF DUMMYV=11 THEN SUTERUITEM_CY=220
11690 IF DUMMYV=12 THEN SUTERUITEM_CY=240
11700 SYMBOL (SUTERUITEM_WX+6,SUTERUITEM_WY+SUTERUITEM_CY),"▽",FBAI,FBAI,%KASORU_C,1
11710 WAIT WA:P=PAD(1):PT=PTRIG(1)
11720 IF P=0 AND PT=0 THEN *捨てるアイテム選択カーソル表示
11730 IF PT=1 THEN *交換処理
11740 IF PT=2 THEN *敵キャラ選択処理
11750 SYMBOL (SUTERUITEM_WX+6,SUTERUITEM_WY+SUTERUITEM_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
11760 IF P=1 THEN DUMMYV=DUMMYV-1
11770 IF P=5 THEN DUMMYV=DUMMYV+1
11780 GOTO *捨てるアイテム選択カーソル表示
11790 ENDIF
11800 *交換処理
11810 DUMMY=IID(WONENEMY_NO,WONITEM_INO)
11820 IID(WONENEMY_NO,WONITEM_INO)=IID(1,DUMMYV)
11830 IID(1,DUMMYV)=DUMMY
11840 DUMMYV=0
11850 DUMMY =0
11860 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
11870 GOTO *コマンド選択処理
11880 ''
11890 '
11900 *二択処理
11910 '
11920 NITAKU_NO=1
11930 '
11940 LINE (NITAKU_WX,NITAKU_WY)-(NITAKU_WX+108,NITAKU_WY+52),PSET,%WINC,BF,%WAKUNAI_C
11950 SYMBOL (NITAKU_WX+26,NITAKU_WY+10),YES$,FBAI,FBAI
11960 SYMBOL (NITAKU_WX+26,NITAKU_WY+30),NO$,FBAI,FBAI
11970 '
11980 *二択選択カーソル表示
11990 '
12000 IF NITAKU_NO=<0 THEN NITAKU_NO=2
12010 IF NITAKU_NO=>3 THEN NITAKU_NO=1
12020 IF NITAKU_NO=1 THEN NITAKU_CY=20
12030 IF NITAKU_NO=2 THEN NITAKU_CY=40
12040 '
12050 SYMBOL (NITAKU_WX+6,NITAKU_WY+NITAKU_CY),"▽",FBAI,FBAI,%KASORU_C,1
12060 WAIT WA:P=PAD(1):PT=PTRIG(1)
12070 IF P=0 AND PT=0 THEN *二択選択カーソル表示
12080 IF P=1 THEN NITAKU_NO=NITAKU_NO-1
12090 IF P=5 THEN NITAKU_NO=NITAKU_NO+1
12100 IF PT=1 THEN
12110 IF NITAKU_NO=1 THEN NITAKU=1:RETURN
12120 IF NITAKU_NO=2 THEN NITAKU=2:RETURN
12130 ENDIF
12140 IF PT=2 THEN NITAKU=2:RETURN
12150 SYMBOL (NITAKU_WX+6,NITAKU_WY+NITAKU_CY),"▽",FBAI,FBAI,%WAKUNAI_C,1
12160 GOTO *二択選択カーソル表示
12170 '
12180 *フロアセレクタ
12190 CLS
12200 IF SCR(1)=1 THEN SCR(1)=0 ELSE IF SCR(1)=0 THEN SCR(1)=1
12210 IF SCR(1)=0 THEN SCR(3)=1 ELSE IF SCR(1)=1 THEN SCR(3)=0
12220 'SCR(2)=1
12230 'SCREEN 1,SCR(1),SCR(2),SCR(3)
12240 'CLS
12250 CHAIN "DRAW_FLS.BAS",,ALL